home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / mus / midi / MusicXRexxMacs.lha / macros / chords / MAJOR SEVENTH.mxe < prev    next >
Text File  |  1997-02-05  |  961b  |  51 lines
  1. /* © Dick Doyle */
  2.  
  3. options results                    
  4.  
  5.  
  6.  
  7. MXRADIO "Selected Notes,All Notes"        
  8.  
  9.  
  10. MXREQUEST "MAJOR SEVENTH,DO IT"  
  11. if result == 0 then exit        
  12.  
  13. MXPOINTER "sleepy"    
  14.  
  15. MXVALUE 1        
  16. if result == 0 then BEGINSCAN 'selected'
  17. else BEGINSCAN 'all'    
  18.  
  19. if result ~= 0 then do forever        
  20.  
  21.   NEXTEVENT                
  22.   if result == 0 then break
  23.  
  24.   if EVENT.TYPE == 'NOTE' then do    
  25.     newval = EVENT.NUM + 4
  26.     if newval < 0 then newval = newval + 128
  27.     if newval > 127 then newval = newval - 128
  28.     EVENT.NUM = newval
  29.     ADDEVENT
  30.   end
  31.   
  32.    if EVENT.TYPE == 'NOTE' then do    
  33.     newval = EVENT.NUM + 3
  34.     if newval < 0 then newval = newval + 128
  35.     if newval > 127 then newval = newval - 128
  36.     EVENT.NUM = newval
  37.     ADDEVENT
  38.   end
  39.   
  40.    if EVENT.TYPE == 'NOTE' then do    
  41.     newval = EVENT.NUM + 4
  42.     if newval < 0 then newval = newval + 128
  43.     if newval > 127 then newval = newval - 128
  44.     EVENT.NUM = newval
  45.     ADDEVENT
  46.   end
  47. end
  48. ENDSCAN                    
  49.  
  50. MXPOINTER "normal"            
  51. exit